[delphi.com.ar]

Básicamente el código que te he mostrado hace eso, algo un poco mas completo:

Código Delphi [-]
var
  R: Integer;
begin
  Randomize;
  R := 0;
  repeat
    inc(R);
  until RandG(0, 1) > 2;
  ShowMessageFmt('Cantidad de Intentos: %d', [R]);
end;