[[Lepe]]

El problema lo tienes en la segunda linea, que después del "then" se te ha escapado un punto y coma.

Por otro lado, te recomiendo un sangrado así:

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin  
  if label1.Caption='' then
  begin  
    label1.Caption:=edit1.Text;
  end
  else if label2.Caption='×' then  
  begin  
    label3.Caption:=edit1.Text;
  end
  else if label4.caption='÷' then  
    label5.Caption:=edit1.text
  else if label6.caption='+' then  
    label7.caption:=edit1.text
  else if label8.caption='-' then  
    label9.caption:=edit1.text; 
end;

Saludos