Şu 2 soruyu yapabilecek var mı ?

[RAD Coder]

Sınav muhtemelen geçmiştir. 
Bu nedenle doğrudan kod paylaşma konusunda bir sorun olmaz diye düşünerek; çözümleri aşağıda paylaşıyorum (Gelecek sınavlarda öğrenci arkadaşımıza faydalı olacaktır). 

2. Sorunun Çözümü:

  private
   slKisaltma: TStringList;
   SonSozcukKonumu: integer;

....

procedure TForm1.Button1Click(Sender: TObject);
var
 i, Bosluk, CursorSonKonumu: Integer;
 Satir, Kisa, Uzun, SonSozcuk: String;
begin
 if Length(Edit1.Text) >= 3 then
 begin
   CursorSonKonumu := Length(Edit1.Text);
   for i := 0 to slKisaltma.Count - 1 do
   begin
     Satir := slKisaltma[i];
     Bosluk := Pos(' ', Satir);
     Kisa := Copy(Satir, 0, Bosluk - 1);
     Uzun := Copy(Satir, Bosluk + 1);
     SonSozcuk := Copy(Edit1.Text, SonSozcukKonumu + 1);
     if SonSozcuk = Kisa then
     begin
       Edit1.Text := Copy(Edit1.Text, 0, SonSozcukKonumu) + Uzun;
       Edit1.SetFocus;
       Edit1.SelStart := Length(Edit1.Text);
       break; { Döngüyü artık bitir }
     end;
   end;
 end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #32 then
   SonSozcukKonumu := Length(Edit1.Text) + 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 SonSozcukKonumu := 0;
 slKisaltma := TStringList.Create;
 slKisaltma.LoadFromFile('Final\Kısaltma.txt', TEncoding.UTF8);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 slKisaltma.Free;
end;

Not: Uygulamanın bulunduğu dizinde Final adında bir klasör ve içinde kısaltmaların olduğu Kısaltma.txt olmalıdır. 

Kısaltma.txt İçeriği:

Del Delphi
Ank Ankara
Tür Türkiye
Bay Bayrak
Vat Vatan

   



3. Sorunun Çözümü:

uses

 System.UITypes;

....

procedure TForm1.FormCreate(Sender: TObject);
begin
 ListBox1.Items.Assign(Screen.Fonts);

end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 Label1.Font.Name := ListBox1.Items[ListBox1.ItemIndex];
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
 Label1.Font.Style := []; { Öncelikle tüm stilleri yok say }
 case ListBox2.ItemIndex of
   0: { Normal }
     begin
       Label1.Font.Style := [];
     end;
   1: { Kalın }
     begin
       Label1.Font.Style := Label1.Font.Style + [TFontStyle.fsBold];
     end;
   2: { İtalik }
     begin
       Label1.Font.Style := Label1.Font.Style + [TFontStyle.fsItalic];
     end;
   3: { Kalın İtalik }
     begin
       Label1.Font.Style := Label1.Font.Style + [TFontStyle.fsBold, TFontStyle.fsItalic];
     end;
 end;

end;

procedure TForm1.ListBox3Click(Sender: TObject);
begin
 Label1.Font.Size := ListBox3.Items[ListBox3.ItemIndex].ToInteger;
end;