[Zemius]

Сообщение от roland196

вот так надо:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Unom, Snom: Real;
str1, str2, str3, str4, str5: string;

begin

Unom:=10.5;
Snom:=25000;
str1:= 'Unom=      ';
str2:= 'kB';
str5:= 'Snom=     ';

Memo1.Clear; // Ochistka polya Memo1

FloatToStr(Unom);
str3:=str1+FloatToStr(Unom)+str2;  // formirovanie stroki
Memo1.Lines.Add(str3);       //  vyvod pervoy stroki v Memo1

FloatToStr(Snom);
str4:=str5+FloatToStr(Snom)+str2;
Memo1.Lines.Add(str4);       //  vyvod vtoroy stroki v Memo1

end;

end.

Спасибо большое человеческое