var
i : integer ;
begin
i := 0;
i := i + 1 ;
if i = 1 then begin
Label1.Caption := 'Doğru ';
end
else
if i<>1 then begin
Label1.Caption := 'Yanlış ';
end;
end;

Case x of
1 : label1.Caption := ' Isim1 ' ;
2 : label1.Caption := ' Isim2 ' ;
3 : Edit1.Text := ' Isim3 ' ;
else
Edit1.Text := ' Hoşçakal ' ;
end;

var
i : array [ 1 .. 20 ] of string ;
k : integer ;
begin
for i := 1 to 20 do
i [ k ] := InputBox( ' i değer girişi ' Inttostr (k ) + '.nin adı ' ' ' ) ;
end ;

var
i : integer ;
Begin
i := 0 ;
while i < 10 do
Begin
Label1.Caption := inttostr ( i ) ;
i := i + 1 ;
end ;

var
i : integer ;
begin
repeat
i := 50 ;
Until (i>0) and ( i < 50 )
end ;

var  
s : string;  
begin  
fors inlistbox1.items do  
begin  
showmessage(s);  
end;

procedure TForm1.Button1.Click ( Sender : TObject ) ;
var
i : array [1 .. 20 ] of string ;
k : integer ;
begin
for i := 1 to 20 do
if i [ k ] = 'Bahadir' then begin
break ;
if > 50 then begin
ShowMessages (' Aranan kayıt bulunamadı. Tekrar deneyiniz...' ) ;
end
else
ShowMessages (Inttostr ( k ) + ' . kişi' ) ;
end ;
end ;

var
i : integer ;
Begin
for i := 1 to 20 do
if i<10
continue ;
end ;
ShowMessages( Inttostr ( i ) ) ;
end ;

var
 i : integer ;
begin
i := strtoint ( Edit1. Text ) ;
if i <10 then begin
exit ;
end
else
Edit1.Text := 'i'nin değerleri 10'dan büyük.' ;
end ;
end;

Begin
Form1.Halt ; // Programdan çıkış sağlar.
end ;

With kontroladi do
Begin
....
end ;