RichEdit - Selecionar Última linha adicionada

procedure TFMImporta.SelecionaLinha;
var
i: integer;
begin
i:=Memo1.Lines.Count - 1;
memo1.SelStart := pos(Memo1.Lines.Strings[i],Memo1.text)-1;
memo1.SelLength := length(Memo1.Lines.ValueFromIndex[i]) + 1;
end;