[san-46]

1.

Код:

  Path := ExtractFilePath(Application.ExeName)+'ks660.bmp';
  if FileExists(Path) then
    Image1.Picture.LoadFromFile(Path);
  //где Path : string;

2.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I, Sum : Integer;
begin
  Sum := 0;
  for I := 1 to Length(Edit1.Text) do
    Sum := Sum + StrToInt(Edit1.Text[i]);
  edit5.Text := IntToStr(Sum);
end;