Redigere i en Text

Hej,

Jeg har et edit felt ved navn RlsName, og brugeren kan fx skrive følgende tekst i det: "Hello world".

Ved siden af feltet har jeg en knap som skal redigere teksten, og det skal være sådan, at ordet 'world' skal udskiftes med 'World.'. Altså 'w' til 'W' og et punktum bagefter.

procedure TForm1.RlsNameCheck(Sender: TObject);
begin
  if (RlsName.Text = 'world') or (RlsName.Text = 'World') then
  RlsName.Text := 'World.';
end;

Ovenstående kode virker selvfølgelig ikke efter hensigten, da 'Hello ' bliver slettet.

Hvordan går jeg ind i en Text og redigerer kun enkelte ord?