procedure TForm1.mesaj();
begin
   ShowMessage('Dogru');
end;

(22-02-2021, Saat: 02:00)yanniosman Adlı Kullanıcıdan Alıntı: Merhaba,
     Resimde işaretlediğim alana procedure tanımladıktan sonra “Ctrl+Shift+C” tuşlarına basın.

procedure deneme;

procedure TForm1.deneme;
begin
end ;

procedure TForm1.deneme;
begin
end ;

procedure deneme;

(22-02-2021, Saat: 11:12)Mr.Developer Adlı Kullanıcıdan Alıntı: Merhaba,
Bu durum bende de mevcuttu hem de uzun süredir sebebi ise AMD ekran kartıma gelen büyük güncelleme. Nasıl bir güncelleme ise, mübarek her tuşa bir özelliğini atamış. Diğer programların üzerinde de sürekli çalıştığı için kısayollar doğrudan onu tetikliyordu. Delphi de bundan payını almış durumdaydı. Özellikle Photoshop üzerinde kısayolların çalışmaması mahvetti. ama tek tek işe yarayan kısayolları AMD tarafında temizleyince kullanabilir oldum.

Birinci etken bu olabilir. İkincisi ise proje dosyanız çok saçma nedenlerden dolayı hasar görmüş olabilir. Proje dosyasını yenilemek sorunu çözecektir.
Üçüncü ve son etken ise üç tuştan birisi çalışmıyor da olabilir 

Ayrıca @yanniosman ın cümlesine ek olarak ;
private ya da public alanındaki

procedure deneme;

için Shift + ctrl + C kullanırsanız ;

procedure TForm1.deneme;
begin
end ;

Şeklinde sonuç alınır ve eğer 

procedure TForm1.deneme;
begin
end ;

Şeklinde Shift + ctrl + C kullanırsanız private bölümünde ;

procedure deneme;

Olarak birbirini tamamlayacaktır. 
Complete class at cursor := imleçte sınıfı tamamla

(22-02-2021, Saat: 11:12)Mr.Developer Adlı Kullanıcıdan Alıntı: Merhaba,
Bu durum bende de mevcuttu hem de uzun süredir sebebi ise AMD ekran kartıma gelen büyük güncelleme. Nasıl bir güncelleme ise, mübarek her tuşa bir özelliğini atamış. Diğer programların üzerinde de sürekli çalıştığı için kısayollar doğrudan onu tetikliyordu. Delphi de bundan payını almış durumdaydı. Özellikle Photoshop üzerinde kısayolların çalışmaması mahvetti. ama tek tek işe yarayan kısayolları AMD tarafında temizleyince kullanabilir oldum.

Birinci etken bu olabilir. İkincisi ise proje dosyanız çok saçma nedenlerden dolayı hasar görmüş olabilir. Proje dosyasını yenilemek sorunu çözecektir.
Üçüncü ve son etken ise üç tuştan birisi çalışmıyor da olabilir 

Ayrıca @yanniosman ın cümlesine ek olarak ;
private ya da public alanındaki

procedure deneme;

için Shift + ctrl + C kullanırsanız ;

procedure TForm1.deneme;
begin
end ;

Şeklinde sonuç alınır ve eğer 

procedure TForm1.deneme;
begin
end ;

Şeklinde Shift + ctrl + C kullanırsanız private bölümünde ;

procedure deneme;

Olarak birbirini tamamlayacaktır. 
Complete class at cursor := imleçte sınıfı tamamla