You can use the Delphi SelStart() and SelectLength() methods. Example:

procedure TForm .Button Click(Sender: TObject);
begin
  Edit .SetFocus;
 {Move the caret to the second character}
  Edit .SelStart := 2;
 {Do not select any text}
  Edit .SelLength := 0;
end;