How Create Or Use Function repeat () ?

{ передаем данные о заявках}
procedure datainapp;
var
i,c,r,t:integer;
list:TStringList;
url: string = 'https://service-vv.ru/api/index.php';
Tlogin:TIniFile;
s,p,sF,sL,sD,UQ:string;
begin
 t:=50000;
 p:=DecryptRC5('****','****');
 Tlogin:=TIniFile.Create(ExtractFilePath (ParamStr (0))+'setting\online.ini');
 list:=TStringList.Create;
 list.Text:= SQLExecute( 'SELECT group_concat(id, char(13) || char(10)) FROM servise WHERE appUpdate=1' );
 c:=list.Count-1;
 timerDataInout.Enabled:=True;
 timerDataInout.Interval:=1000;
 timerDataInout.OnTimer:=@SDataApp;
 for i:=0 to c do
  begin
  if outdatainout=1  then begin
  TInOut.Enabled:=True;
  break;
  end else begin
  sF:=sqlexecute('SELECT name FROM firstNameClient LEFT OUTER JOIN servise ON firstNameClient.id=servise.id_firstNameClient WHERE servise.id='+list[i]);
  sL:=sqlexecute('SELECT name FROM twoNameClient LEFT OUTER JOIN servise ON twoNameClient.id=servise.id_twoNameClient WHERE servise.id='+list[i]);
  sD:=sqlexecute('SELECT descriptionATCsWords FROM servise WHERE id='+list[i]);
  UQ:=sqlexecute('SELECT client FROM servise WHERE id='+list[i]);
  sF:= ReplaceStr(sF, '+', '%2B');
  sL:= ReplaceStr(sL, '+', '%2B');
  sD:= ReplaceStr(sD, '+', '%2B');
  UQ:= ReplaceStr(UQ, '+', '%2B');
  datainout.open('POST', url, True);
  datainout.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded; charset=utf8');
  s:='action=datain&password='+HttpEncode(p)+'&idapp='+list[i]+
  '&firstnameapp='+sF+'&lastnameapp='+sL+
  '&telephonapp='+HttpEncode(sqlexecute('SELECT telephonClient FROM servise WHERE id='+list[i]))+
  '&dateapp='+HttpEncode(sqlexecute('SELECT dateApplcation FROM servise WHERE id='+list[i]))+
  '&timeapp='+HttpEncode(sqlexecute('SELECT timeApplication FROM servise WHERE id='+list[i]))+
  '&uniquefield='+UQ+
  '&descriptionapp='+sD+'';
  datainout.send(s);
 repeat
     Application.ProcessMessages;
     if SDataApp(list[i])then begin
      SQLExecute('UPDATE servise SET appUpdate="0" WHERE id = '+list[i]);
      FrmServiceCen.lLogUser.Caption:='Передача данных ..';
     break;
     end;
     r:=r+1;
   until r >= t;
  end;
 end;
  timerDataInout.Enabled:=False;
  dataoutapp;
  FrmServiceCen.lLogUser.Caption:='Ок ';
end;