Кальк, удаление БАГов

[Aспирин]

Я сделал так, но у меня не получилось
procedure TForm1.Button20Click(Sender: TObject);
var s:string;
begin
s:=edit1.text;
copy(s,0,length(s)-1 );
edit1.Text:=s;
end;

в чём ошибка?

[ReportCube]

copy(s,1,length(s)-1 );

[psycho-coder]

Copy - Это функция (см. справку по слову Функция) она возвращает значение
это значение необходимо куда-то присваивать

procedure TForm1.Button20Click(Sender: TObject);
var s: String;
begin
  s := Edit1.Text;
  Edit1.Text := Copy(s, 1, Length(s) -1); // тут правильно поправили, первый символ в типе  String начинается с единицы, а нулевой содержит длину строки
end;

[Serge_Bliznykov]

ну тогда в одну строчку (+ проверка на пустую строку):

procedure TForm1.Button20Click(Sender: TObject);
begin
  if Length(Edit1.Text)>0 then 
     Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text) -1); 
end;