Nicht getestet, müsste aber nach meinem Verständnis gehen:
Delphi-Quellcode:
MessageDLG('Blubb',
TMsgDlgType.mtInformation, [TMsgDlgBtn.mbYes] ,0,
procedure(const AResult: System.UITypes.TModalResult)
begin
if aResult = mrYes then
begin
TThread.CreateAnonymousThread(procedure ()
begin
//makeit
end).Start;
end;
end);