первый и последний символ в строке

[Serge_Bliznykov]

код ужасный. если распишете подробнее, что Вы им добиваетесь, то можно будет попробовать переписать.

но пока, для решения проблемы с ошибкой, попробуйте так:

with (Sender as TEdit) do
  begin
    t:=Text;
    if Length(t)<2 then Exit;
....