怎样取richedit中的第一个字符的位置(不包括空字符)

Question

Var
  Temp : String;
  i : integer;
begin
  If Trim(RichEdit1.text) <> '' Then
    For i := 1 To RichEdit1.Lines.Count Do
    Begin
      Temp := Copy(RichEdit1.text,i,1);
      If Temp <> '' Then Exit; 
    End;
  ShowMessage(Temp); 
end;

Answer 1

纠正楼上一个错误:
Var
  Temp : String;
  i : integer;
begin
  If Trim(RichEdit1.text) <> '' Then
    For i := 1 To RichEdit1.Lines.Count Do
    Begin
      Temp := Copy(RichEdit1.text,i,1);
      If Temp <> '' Then Exit;     //不是Exit,是Break
    End;
  ShowMessage(Temp); 
end;