Maus positionieren

[litsa]

Hallo
nachdem ich im Forum gesucht und nichts hilfreiches gefunden habe hier nun mein Problem:
möchte ganz einfach wenn ein TEdit den Focus erhält dass der Cursor am Ende des Textes steht

So wie der code jetzt aussieht erhält Tedit zwar den Focus aber der ganze Text wird markiert...

Delphi-Quellcode:

procedure TcFrame.ColorBox1Change(Sender: TObject);
begin
cInputcl := ColorBox1.Selected;
ColorBox1.Selected := clBlack;
if cInput.SelText = '' then
cInput.SelText := DFSMain.Status.getClNr(cInputcl) + cInput.SelText
else
cInput.SelText := DFSMain.Status.getClNr(cInputcl) + cInput.SelText + #3;
cInput.SetFocus;
end;